(* ex01.ml: du C dans de l'OCaml *)
 
external cFact : int -> int = "fact"
 
(* Example d'utilisation *)
let main () =
  Printf.printf "fact(5) = %d\n%!" (cFact 5);
  exit 0
 
let _ = main ()
